home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / utilities / misc / dad_pub.lha / DAD_pub / Install / Skript < prev   
Encoding:
Text File  |  1994-08-29  |  1.8 KB  |  94 lines
  1. ; ************************************************
  2. ; *
  3. ; * $VER: Install-DAD V1.01 (28.8.94)
  4. ; *
  5. ; * This is the installation script for DoAllData
  6. ; *
  7. ; * Copyright © 1994 Sven Dickert  All Rights Reserved
  8. ; *
  9. ; ************************************************
  10.  
  11.  
  12. ; ****************************
  13. ; * Set up some global variables.
  14. ; ****************************
  15. ;
  16. (set ProductName    "DoAllData")    ; product name
  17. (set VersionNum        "1.01")              ; product version number
  18.  
  19. (set OSVersion        (/ (getversion) 65536))
  20. (set AccumFiles        0)
  21. (set PctDone        0)
  22. (set @default-dest "SYS:WBStartup")
  23.  
  24.  
  25. (procedure incrementMeter
  26. ;
  27. ; ****************************
  28. ; * Increment the progress meter indicator.
  29. ; ****************************
  30. ;
  31. ;    addToMeter
  32. ;
  33.     (
  34.     (set AccumFiles    (+ AccumFiles addToMeter))
  35.     (complete AccumFiles)
  36.     )
  37. )
  38.  
  39.  
  40. ; **************************
  41. ; * DAD Main Installation routine
  42. ; **************************
  43. ;
  44. ( 
  45.     (copyfiles
  46.         (prompt    ("Installing %s..." ProductName))
  47.         (help    "")
  48.         (source    ("/%s" ProductName))
  49.         (dest    @default-dest)
  50.     )
  51.     (copyfiles
  52.     (source ("/%s.info" ProductName))
  53.         (dest    @default-dest)
  54.     )
  55.   (set addToMeter    10)
  56.     (incrementMeter)
  57.  
  58.     ; ****************************
  59.     ; * copy Catalogs/deutsch/doalldata.catalog,
  60.     ; * if necessary
  61.     ; ****************************
  62.     ;
  63.     (if (>= OSVersion 38)
  64.         (
  65.     (if (<> @language "english")
  66.     ( 
  67.       (set dad_cat ("/Catalogs/%s/doalldata.catalog" @language))
  68.       (if (exists dad_cat)
  69.       (
  70.         (copyfiles
  71.              (prompt    ("Installing Catalog File ..."))
  72.             (help    "")
  73.             (source    dad_cat)
  74.             (dest    ("Locale:Catalogs/%s" @language))
  75.          )
  76.     )
  77.     )
  78.     )
  79.     )
  80.         )
  81.   )
  82.   (set addToMeter    10)
  83.     (incrementMeter)
  84.  
  85.     ; ****************************
  86.     ; * exit the program.
  87.     ; ****************************
  88.     ;
  89.     (complete 100)
  90.     (exit)
  91. )
  92.  
  93.  
  94.